home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / strings.swg / 0050_Get MASK from path-mask.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-09-26  |  689 b   |  21 lines
  1. {*****************************************************************************
  2.  * Function ...... GetMask()
  3.  * Purpose ....... To return the mask from a path/mask string
  4.  * Parameters .... Path       String to extract the mask from
  5.  * Returns ....... The file mask portion of <Path>
  6.  * Notes ......... None
  7.  * Author ........ Martin Richardson
  8.  * Date .......... May 13, 1992
  9.  *****************************************************************************}
  10. TYPE
  11.      String13 = STRING[13];
  12. FUNCTION GetMask( Path: DirStr ): String13;
  13. VAR dir  : DirStr;
  14.     name : NameStr;
  15.     ext  : ExtStr;
  16. BEGIN
  17.      FSPLIT( path, dir, name, ext );
  18.      GetMask := name + ext;
  19. END;
  20.  
  21.